# Usage: minorpower.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile chaos.tcl
	outputFile minorpower.ps 
	mapFile minorpower.map
	title "diplomacy map (minorpower variant)"
	images {
		chart {minorpower.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} BritishIsles Lakes Islands part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25}} LandBrown {}}
		coordinates {minorpower.base.ps {scan {} {provinces INFO supplies TLA}} {} {}}
	}
	colors {
		BelgiumColor {.98 .37 0}
		BulgariaColor {.45 .45 1}
		DenmarkColor {.91 .65 .18}
		GreeceColor {1 0 .50}
		HollandColor {1 0 1}
		NorwayColor {.25 .50 0}
		PortugalColor {.50 .50 .50}
		RumaniaColor {.25 .50 .50}
		SerbiaColor {.50 .25 0}
		SpainColor {1 .50 .75}
		SwedenColor {.50 0 .50}
		TunisColor {.50 0 .25}
	}
	powers {
		Austria {A Red White "A-AUS" "A-AUSTRIA"}
		England {E Blue White "E-ENG" "E-ENGLAND"}
		France {F Turquoise Black "F-FRA" "F-FRANCE"}
		Germany {G Black White "G-GER" "G-GERMANY"}
		Italy {I Green Black "I-ITA" "I-ITALY"}
		Russia {R White Black "R-RUS" "R-RUSSIA"}
		Turkey {T Yellow Black "T-TUR" "T-TURKEY"}
		Belgium {B BelgiumColor White "B-BEL" "B-BELGIUM"}
		Bulgaria {L BulgariaColor White "L-BUL" "L-BULGARIA"}
		Denmark {D DenmarkColor Black "D-DEN" "D-DENMARK"}
		Greece {C GreeceColor Black "C-GRE" "C-GREECE"}
		Holland {H HollandColor White "H-HOL" "H-HOLLAND"}
		Norway {Y NorwayColor White "Y-NWY" "Y-NORWAY"}
		Portugal {P PortugalColor White "P-POR" "P-PORTUGAL"}
		Rumania {U RumaniaColor White "U-RUM" "U-RUMANIA"}
		Serbia {S SerbiaColor White "S-SER" "S-SERBIA"}
		Spain {N SpainColor Black "N-SPA" "N-SPAIN"}
		Sweden {W SwedenColor White "W-SWE" "W-SWEDEN"}
		Tunis {X TunisColor White "X-TUN" "X-TUNIS"}
	}
	layout {corner retreats} fontSize 7
	ownerColumns 2 ownerAllowsOverlap 1 ownerLineLength 48 ownerBoxLength 19 ownerNameLength 6 
	adjustmentBoxLength 11 adjustmentNameLength 5
	retreatBoxLength 11 retreatNameLength 5 
	orderBoxLength 53 orderHasHeading 2 
}
